home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / toolfix.arc / DTB101.PAT < prev    next >
Text File  |  1987-03-03  |  4KB  |  128 lines
  1. PRODUCT : TURBO DATABASE TOOLBOX
  2. VERSION : 1.00x
  3.      OS : MS-DOS, CP/M-86, CP/M-80
  4.    DATE : March 13, 1986
  5.  
  6.   TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
  7.  
  8. The Turbo Database Toolbox  is provided in the form of source
  9. code (except for GINST).   You can make these changes directly to
  10. the source code.  
  11.  
  12. It has been discovered that the serial numbers on Turbo  Database 
  13. Toolbox  diskettes  are  not completely  reliable  indicators  of 
  14. whether these fixes have been incorporated.   To be safe,  take a 
  15. few minutes to review your copy of the Turbo Database Toolbox and 
  16. determine which, if any, of the following fixes are necessary.  
  17.  
  18. The  Turbo  Database Toolbox has been released as  Version  1.00, 
  19. Version 1.01, and Version 3.00.  Generally, the changes described 
  20. below will update Version 1.00 to Version 1.01.  Again, look your 
  21. Version   1.01  over  and  verify  that  these  fixes  have  been 
  22. implemented. 
  23.  
  24. If  you have Version 3.00 of Turbo Database Toolbox,  the changes 
  25. to ACCESS.BOX (or ACCESS3.BOX) have been incorporated along  with 
  26. other changes relating to Turbo Pascal,  Version 3.0).   However, 
  27. you  should look at the changes below that pertain to other files 
  28. in the Turbo Database Toolbox.
  29.  
  30.  
  31. A. GENERAL CHANGES
  32.  
  33.    If you make  the changes listed below to Version       1.00 of 
  34.    the Turbo Database Toolbox,  change the headers of ACCESS.BOX,    
  35.    GETKEY.BOX, ADDKEY.BOX, and DELKEY.BOX to say:
  36.  
  37.    "TURBO-Access Version 1.01" and "Copyright (C) 1984, 85."
  38.  
  39. B. CHANGES TO ACCESS.BOX
  40.  
  41.    Add lines 1) and 2) in the following two places: 
  42.  
  43.    Immediately after the "Assign(...)"  in procedure MakeFile;
  44.    Immediately after the "Assign(...)"  in procedure OpenFile:
  45.  
  46.    1) IOstatus:=IOresult;
  47.    2) TaIOcheck(DatF, 0);
  48.  
  49.    Add  the  following  line immediately after  "PutRec(...)"  in 
  50.    procedure CloseIndex:
  51.  
  52.    Updated := false;
  53.  
  54.    Note:  Without  the  above change,  an index file  can  become 
  55.           corrupted  if  you close an index file, and  then  open 
  56.           another while in the middle of your program.
  57.  
  58. C. CHANGES TO ADDKEY.BOX
  59.  
  60.    In the very last three lines of the file, change:
  61.  
  62.    FROM:         end;
  63.                end;
  64.              end;
  65.  
  66.    TO:           end;
  67.                  PP := 0;
  68.                end;
  69.              end;
  70.  
  71. D. CHANGES TO DELKEY.BOX
  72.  
  73.    In the very last four lines of the file, change:
  74.  
  75.    FROM:           end;
  76.                  end;
  77.                end;
  78.              end;
  79.  
  80.    TO:             end;
  81.                  end;
  82.                  PP := 0;
  83.                end;
  84.              end;
  85.  
  86. E. CHANGES TO SORT.BOX
  87.  
  88.    About  17  lines after the main BEGIN of procedure  QuickSort, 
  89.    change:
  90.  
  91.    FROM:     M := (I+J) Div 2;
  92.  
  93.    TO:       M := (I+J) Shr 1;
  94.           
  95.    Note:  This  is   not  just for efficiency,  the old  "Div  2"
  96.           version  can  cause an arithmetic run-time  error  when 
  97.           sorting large files.
  98.  
  99. F. CHANGES TO SORT1.PAS AND SORT2.PAS
  100.  
  101.    The  TurboSort function should not be used as a parameter to a    
  102. Write  or  WriteLn statement,  as this may result in  an  illegal    
  103. recursive  call to Read or Write.  Make the following changes  to 
  104. the sample programs SORT1.PAS and SORT2.PAS
  105.  
  106.    Add  the following variable declaration to the VAR section  of   
  107.    both  main programs (pages 71,  75,  78,  and 82 of the  Turbo 
  108.    Database Toolbox manual).
  109.  
  110.           x : integer;
  111.  
  112.    Throughout SORT1.PAS and SORT2.PAS, replace each occurrence of
  113.    the following line:
  114.  
  115.           WriteLn(TurboSort(SizeOf(CustRec)));
  116.  
  117.    with the following TWO lines:
  118.  
  119.           x:=TurboSort(SizeOf(CustRec));
  120.           WriteLn(x);
  121.  
  122.    If  this  is  not  fixed in your copy of  the  Turbo  Database 
  123.    Toolbox,  there  will be one occurrence of this in  SORT1.PAS,
  124.    and  two  in  SORT2.PAS.   See also  pages  74,  76,  78  (two
  125.    occurrences) of the Turbo Database Toolbox Reference Manual.
  126.  
  127.